home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / SQUSQ.SFX / usq (.txt) < prev   
Encoding:
Commodore BASIC  |  1990-02-12  |  3.2 KB  |  60 lines
  1. 10 REM "SQ/USQ BY JOHN LEESON, DEC 1985"
  2. 20 REM "MAY BE FREELY COPIED AND FILED "
  3. 30 REM "ON BBS DOWNLOADS. NOT TO BE   "
  4. 40 REM "SOLD OR COPIED FOR ANY COPY FEE"
  5. 50 REM "SOURCE CODE AND CODING NOTES   "
  6. 60 REM "WILL BE AVAILABLE SOON FROM THE"
  7. 70 REM "AUTHOR ONLY FOR A COPY CHARGE. "
  8. 80 REM "E-MAIL TO 'SEBASTIAN' ON QUANTUM
  9. 90 [143] "LINK FOR INFO.                 "
  10. 100 [145][171]([194](49152)[178]169)[137]210:[135]X:[158] [194](67)[170]256[172][194](68)[170]7:[156]
  11. 110 [151] 53280,12:[151]53281,0:[153]"LOAD";
  12. 120 [153]"            FILE UNSQUEEZE"
  13. 130 [153]"                  BY"
  14. 140 [153]"             JOHN LEESON"
  15. 150 [133]"INPUT DEVICE  8CMDCMDCMD";ID:[139] ID[179]8 [176] ID[177]10 [137] 150
  16. 160 [133]"INPUT DRIVE  0CMDCMDCMD";IV$:IV$[178][200](IV$,1):[139] IV$[179][177]"0" [175] IV$[179][177]"1" [137] 160
  17. 170 [133]"OUTPUT DEVICE  8CMDCMDCMD";OD:[139] OD[179]8 [176] OD[177]10 [137] 170
  18. 180 [133]"OUTPUT DRIVE  0CMDCMDCMD";OV$:OV$[178][200](OV$,1):[139] OV$[179][177]"0"[175]OV$[179][177]"1" [137] 180
  19. 190 [151]904,ID:[151]906,OD:[151]905,[198](IV$):[151]907,[198](OV$)
  20. 200 :
  21. 210 [153]"INSERT INPUT AND OUTPUT DISKS. PRESS ANYKEY WHEN READY.."
  22. 220 [161]A$:[139]A$[178]""[137]220
  23. 230 NA$[178]"":[153]"FILE NAME TO UNSQUEEZE ($ FOR DIRECTORY)":[133]NA$
  24. 240 [139] NA$[178]"" [167] [128]:[138]
  25. 250 [139][200](NA$,1)[178]"$"[137]520
  26. 260 [160]15:[159]15,OD,15:[160]15:[139]ST[179][177]0[167][153]"OUTPUT DRIVE NOT READY":[144]:[138]
  27. 270 IE[178]15:[139] ID[179][177]OD [167] IE[178]16
  28. 280 [160]IE:[159]IE,ID,15:NA$[178][200](IV$[170]":"[170]NA$,18)
  29. 290 [160]2:[159]2,ID,2,NA$[170]",S,R"
  30. 300 [132]IE,A$,B$:[139]A$[179]"20"[137]320
  31. 310 [153]"DISK ERROR OPENING FILE:":[153]NA$:[153]A$"   "B$:[137]210
  32. 320 [139] ID[179][177] OD [167] [159] 15,OD,15
  33. 330 X[178][184](0):[153]"READING/UNSQUEEZING"
  34. 340 [158] 49152
  35. 350 X[178][194](780):[139] X[179][177]0 [137] 390
  36. 360 [153]:[153] "UNSQUEEZE COMPLETE":LE[178][194](828)
  37. 370 [129] I[178]1 [164] LE:[153] [199]([194](828[170]I));:[130]:[153]:[153] "FILE CREATED"
  38. 380 [137]230
  39. 390 [153] "ERROR NUMBER" X "OCCURRED."
  40. 400 [139] X[178]1 [167] [153] "FILE IS NOT SQUEEZED":[137]230
  41. 410 [139] X[178]2 [167] [153] "STATUS ERROR ON OPEN":[137]230
  42. 420 [139] X[178]4 [167] [153] "PHYSICAL EOF BEFORE END OF FILE MARKER":[137]230
  43. 430 [139] X[178]5 [167] [153] "CHECKSUM ERROR. FILE MAY BE BAD":[137]230
  44. 440 [139] X[178]6 [167] [153]"DISK STATUS ERROR AFTER WRITE.":[137]480
  45. 450 [139] X[178]7 [167] [153]"FORMAT ERROR IN SQUEEZED FILE":[137]230
  46. 460 [139] X[179][177]3 [167] [153]"UNDEFINED ERROR #"X:[137]230
  47. 470 [153] "DISK STATUS ERROR ON OPEN."
  48. 480 LE[178][194](828)
  49. 490 [129] I[178]1 [164] LE:[153] [199]([194](828[170]I));:[130]:[153]
  50. 500 [153]"ERROR MSG: ";:[129] I[178]1 [164] [194](853):[153] [199]([194](853[170]I));:[130]:[153]
  51. 510 [137]230
  52. 520 [160]2:[159]2,ID,0,NA$:[161]#2,A$,A$,A$,A$:[153]:[153]
  53. 530 [161]#2,A$,B$:L[178][198](A$[170][199](0))[170]256[172][198](B$[170][199](0)):[153]L;
  54. 540 [161]#2,A$:[139]A$[179][177]""[167][153]A$;:[137]540
  55. 550 [153]:[161]#2,A$:[139]A$[179][177]""[167][161]#2,A$:[137]530
  56. 560 [161]#2,A$:[139]A$[179][177]""[137]530
  57. 570 [160]2:[160]IE:[137]230
  58. 999 [128]:[143] "NO MODS AFTER HERE"
  59. 1000 [131] 0,0
  60.